﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>

<%	dim rs,sql,i,name,id,page,fleg,phonenid,body,ed
	id=Request.QueryString("id")
	if id="" then id=1
	if not isnumeric(id) then id=1
	id=clng(id)
        ed=id*4+66555
        phonenid=qingtian.phonename(midqd,1)
	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "select [name] from [qingtian_phonefenn] where [id]="&id
	Rs.Open Sql,conn,1,1
	if not (rs.bof and rs.eof)  then
		name=qingtian.utf8(rs("name"))
        else
                name="出错了"
	end if
	Rs.close
        set rs=nothing
select case v
case "0"
we0="<br/>"
hr="---------------<br/>"
%>
<card title="<%=name%>分类"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
ziz="<div style=""background-color:#FF5226;color:#E1E100;"">"
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
%>
<title><%=name%>分类</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
if name="出错了" then qingtian.err("该文件分类还没添加!")	

		if sid="Null" then
		%><%=ziz%><a href="login.asp?sid=<%=sidd%>&amp;url=fenlei.asp?id=<%=id%>">登陆</a>|<%=qingtian.phonetol("/fenlei.asp?id="&id)%><%=we0%><%=qingtian.qingsav(ed)%><%
		else
		qingtian.info
		%><%=ziz%><a href="index.asp?sid=<%=sidd%>">首页</a>|<%=qingtian.phonetol("/fenlei.asp?id="&id)%><%=we0%><%=qingtian.qingsav(ed)%><%
		end if
%>
<%=dao%>【免费<%=name%>分类】<%=we0%><%=hr%><%=qingtian.qingsav(ed+1)%><%=we%>
<%
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "select id,name from qingtian_phonefen where listid="&id&" order by id desc"
Rs.Open Sql,conn,1,1
if not (rs.bof and rs.eof)  then
For i=1 to rs.RecordCount
		If Rs.Eof Then
			exit For
		End If
Response.Write("<a href='liebie.asp?listid="&rs("id")&"&amp;sid="&sidd&"'>"&qingtian.utf8(rs("name"))&""&name&"</a>")
cont=conn.execute("select count(*) as id from qingtian_fileli where leiid="&rs("id")&"")("id")
Response.Write("("&cont&"个)<br/>")
	 	Rs.MoveNext
	  	Next
        else
Response.Write("该系列还没添加任何分类！<br/>")
 	end if
Rs.close
set rs=nothing
Response.Write we1
%>
<%=qingtian.qingsav(ed+1)%>
<%=hr%>
<%=sou%>
当前栏目:<a href='fileli.asp?id=<%=id%>&amp;sid=<%=sidd%>'><%=name%></a>-<a href='fenlei.asp?id=<%=id%>&amp;sid=<%=sidd%>'>分类</a>
<%=we0%>
<%=hr%>
<%
end Function
%>



